home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / demoversionen / mui-rechnung / installation < prev    next >
Text File  |  1995-03-09  |  8KB  |  430 lines
  1. ;
  2. ; Installations-Skript für das komplette Rechnungsprogramm.
  3. ;
  4.  
  5. ; Die Routine im Fehlerfall
  6.  
  7. (onerror
  8.     (makeassign "MUI-Rechnung" (safe))
  9. )
  10.  
  11. (complete 0)
  12.  
  13. ; Falls die Installation erneut gestartet wird
  14.  
  15. (makeassign "MUI-Rechnung" (safe))    ; neu starten ohne Assigns
  16.  
  17. ;
  18. ; 1. Teil
  19. ;
  20. ; Installation von 'Rechnung' mit allen dazugehörigen Dateien
  21. ;
  22.  
  23. (set Rechnung_dest            ; Variable für den Pfad
  24.     (tackon
  25.         (askdir
  26.             (prompt "In welchem Verzeichnis soll ein Verzeichnis \"MUI-Rechnung\" "
  27.                     "angelegt werden und das Programm MUI-Rechnung installiert "
  28.                  "werden?")
  29.             (help @askdir-help)
  30.             (default @default-dest)
  31.         )
  32.         "MUI-Rechnung"
  33.     )
  34. )
  35.  
  36. (makedir Rechnung_dest (infos))
  37.  
  38. ; für den Installer noch das endgültige Verzeichnis mitteilen
  39.  
  40. (set @default-dest Rechnung_dest)
  41.  
  42. ; Teste nach, ob es sich um OS2.x oder OS3.x handelt
  43.  
  44. (set vernum (getversion "exec.library" (resident)))
  45. (set ver (/ vernum 65536))
  46.  
  47. (if (>= ver 39)
  48.     (set This_dest (tackon "libs:" "Gadgets"))
  49.     (set This_dest (tackon Rechnung_dest "Gadgets"))
  50. )
  51.  
  52. ; Kopiere das Gadget
  53.  
  54. (copylib
  55.     (prompt "Kopiere das Textfield.gadget.")
  56.     (help @copylib-help)
  57.     (source "Gadgets/textfield.gadget")
  58.     (dest This_dest)
  59.     (infos)
  60.     (confirm)
  61. )
  62.  
  63.  
  64. ; Kopiere die Files...
  65.  
  66. (copylib
  67.     (prompt "Kopiere das Programm \"MUI-Rechnung\".")
  68.     (help @copylib-help)
  69.     (source "MUI-Rechnung")
  70.     (dest Rechnung_dest)
  71.     (infos)
  72.     (confirm)
  73. )
  74.  
  75. (complete 15)
  76.  
  77. (copylib
  78.     (prompt "Kopiere die Online-Hilfe für \"MUI-Rechnung\".")
  79.     (help @copylib-help)
  80.     (source "MUI-Rechnung.guide")
  81.     (dest Rechnung_dest)
  82.     (infos)
  83.     (confirm)
  84. )
  85.  
  86. (complete 25)
  87.  
  88. (if (= (exists (tackon Rechnung_dest "Konfiguration.dat") ) 0)
  89.     (copyfiles
  90.         (prompt "Kopiere Default-Konfiguration.")
  91.         (help @copyfiles-help)
  92.         (source "Konfiguration.dat")
  93.         (dest Rechnung_dest)
  94.         (confirm)
  95.     )
  96. )
  97.  
  98. (if (= (exists (tackon Rechnung_dest "Kundenkategorien.dat") ) 0)
  99.     (copyfiles
  100.         (prompt "Kopiere Kundenkategorien.")
  101.         (help @copyfiles-help)
  102.         (source "Kundenkategorien.dat")
  103.         (dest Rechnung_dest)
  104.         (confirm)
  105.     )
  106. )
  107.  
  108. (if (= (exists (tackon Rechnung_dest "Artikelkategorien.dat") ) 0)
  109.     (copyfiles
  110.         (prompt "Kopiere Artikelkategorien.")
  111.         (help @copyfiles-help)
  112.         (source "Artikelkategorien.dat")
  113.         (dest Rechnung_dest)
  114.         (confirm)
  115.     )
  116. )
  117.  
  118. (if (= (exists (tackon "" "MUI-Rechnung.user") ) 1)
  119.     (copyfiles
  120.         (prompt "Kopiere Konfigurationsdatei.")
  121.         (help @copyfiles-help)
  122.         (source "MUI-Rechnung.user")
  123.         (dest Rechnung_dest)
  124.         (confirm)
  125.     )
  126. )
  127.  
  128. (complete 30)
  129.  
  130.  
  131. (set This_dest
  132.     (tackon
  133.         Rechnung_dest
  134.         "TeXwork"
  135.     )
  136. )
  137. (if (= (exists (tackon This_dest "invoice.tex") ) 1)
  138.     (delete (tackon This_dest "invoice.tex")
  139.         (prompt "Lösche altes TeX-Format.")
  140.         (help @delete-help)
  141.         (optional "force")
  142.     )
  143. )
  144.  
  145. (copyfiles
  146.     (prompt "Kopiere TeX-Files.")
  147.     (help @copyfiles-help)
  148.     (source "TeXwork")
  149.     (choices "invoicepatch.tex" "ecma94.tex" "german.sty" "checkprt.dvi" "invoicemacro.tex" "listmacro.tex" "labelmacro.tex")
  150.     (dest This_dest)
  151.     (confirm)
  152. )
  153.  
  154. (complete 35)
  155.  
  156. ;
  157. ; 2. Teil
  158. ;
  159. ; Installation von TeX
  160. ;
  161.  
  162. (set is_TeX_update 0)
  163. (set TeX_dest (getassign "TeX" "a"))
  164.  
  165. ; Wenn es ein Update ist, dann wahrscheinlich im alten Pfad installieren
  166.  
  167. (if TeX_dest
  168.     (if (askbool
  169.             (prompt "Ihre aktuelle Version von TeX befindet sich vermutlich im Verzeichnis \""
  170.                     TeX_dest
  171.                     "\". Wollen Sie TeX in dieses Verzeichnis installieren (siehe hierzu unbedingt 'Help...'!) ?")
  172.             (help
  173.                 "Das Installationsprogramm hat erkannt, daß Sie evtl. bereits eine "
  174.                 "Version von TeX auf Ihrem System installiert haben.\n\n"
  175.                 "Falls Sie TeX nur in Verbindung mit der MUI-Rechnung verwenden, wählen Sie "
  176.                 "JA, um die Installation im bisherigen Verzeichnis fortzuführen.\n\n"
  177.                 "Falls Sie TeX auch anderweitig verwenden ist es nicht ratsam, die Installation in "
  178.                 "das gleiche Verzeichnis durchführen zu lassen. Wählen Sie zuerst NEIN und "
  179.                 "geben Sie ein anderes Verzeichnis an, um vorübergehend das mitgelieferte "
  180.                 "TeX zu verwenden.\n\n"
  181.                 "Wenn Sie TeX auch anderweitig verwenden, können Sie die Installation auch "
  182.                 "an dieser Stelle abbrechen.\n\n"
  183.                 "Bei Problemen mit TeX hilft Ihnen der Autor von MUI-Rechnung gerne weiter."
  184.             )
  185.             (default 1)
  186.         )
  187.  
  188.         (set is_TeX_update 1)
  189.     )
  190. )
  191.  
  192. ; Falls es kein Update ist, den gewünschten Pfad erfragen.
  193.  
  194. (if (NOT is_TeX_update)
  195.     (set TeX_dest
  196.         (tackon
  197.             (askdir
  198.                 (prompt "In welchem Verzeichnis soll ein Verzeichnis \"TeX\" angelegt "
  199.                         "und TeX installiert werden?")
  200.                 (help @askdir-help)
  201.                 (default @default-dest)
  202.             )
  203.             "TeX"
  204.         )
  205.     )
  206. )
  207.  
  208. ; Erzeuge Schublade mit Icon, falls sie noch nicht vorhanden ist.
  209.  
  210. (if (NOT is_TeX_update)
  211.     (makedir TeX_dest (infos))
  212. )
  213.  
  214. ;
  215. ; altes File evtl. loeschen
  216. ;
  217.  
  218. (if is_TeX_update
  219.     ;
  220.     ; altes Formatfile loeschen
  221.     ;
  222.     (if (= (exists (tackon TeX_dest "formats/invoice.fmt") ) 1)
  223.         (delete (tackon TeX_dest "formats/invoice.fmt")
  224.             (prompt "Lösche altes TeX-Format.")
  225.             (help @delete-help)
  226.             (optional "force")
  227.         )
  228.     )
  229.  
  230.     ;
  231.     ; alte TeX-Files loeschen
  232.     ;
  233.     (if (= (exists (tackon TeX_dest "invoice.tex") ) 1)
  234.         (delete (tackon TeX_dest "invoice.tex")
  235.             (prompt "Lösche altes TeX-Format.")
  236.             (help @delete-help)
  237.             (optional "force")
  238.         )
  239.     )
  240.     (if (= (exists (tackon TeX_dest "invoicepatch.tex") ) 1)
  241.         (delete (tackon TeX_dest "invoicepatch.tex")
  242.             (prompt "Lösche altes TeX-Format.")
  243.             (help @delete-help)
  244.             (optional "force")
  245.         )
  246.     )
  247.     (if (= (exists (tackon TeX_dest "checkprt.dvi") ) 1)
  248.         (delete (tackon TeX_dest "checkprt.dvi")
  249.             (prompt "Lösche altes TeX-Format.")
  250.             (help @delete-help)
  251.             (optional "force")
  252.         )
  253.     )
  254. )
  255.  
  256. (makeassign "TeX" TeX_dest)
  257.  
  258. ; Bin-Dateien sind noch auf der ersten Diskette
  259.  
  260. (set This_dest
  261.     (tackon
  262.         TeX_dest
  263.         "bin"
  264.     )
  265. )
  266. (copyfiles
  267.     (prompt "Kopiere ausführbare Programme für TeX.")
  268.     (help @copyfiles-help)
  269.     (source "TeX/bin")
  270.     (dest This_dest)
  271.     (confirm)
  272.     (all)
  273. )
  274.  
  275. (complete 50)
  276.  
  277. ;
  278. ; Formatfile fuer TeX
  279. ;
  280.  
  281. (set This_dest
  282.     (tackon
  283.         TeX_dest
  284.         "formats"
  285.     )
  286. )
  287.  
  288. ;
  289. ; altes File evtl. loeschen
  290. ;
  291.  
  292. (if (= (exists (tackon This_dest "invoice.fmt") ) 1)
  293.     (delete (tackon This_dest "invoice.fmt")
  294.         (prompt "Lösche altes TeX-Format.")
  295.         (help @delete-help)
  296.         (optional "force")
  297.     )
  298. )
  299.  
  300. ;
  301. ; nur noch das Plain.fmt kopieren
  302. ;
  303.  
  304. (copyfiles
  305.     (prompt "Kopiere Formatdatei für TeX.")
  306.     (help @copyfiles-help)
  307.     (source "TeX/formats")
  308.     (dest This_dest)
  309.     (all)
  310. )
  311.  
  312. (complete 75)
  313.  
  314. (set This_dest
  315.     (tackon
  316.         TeX_dest
  317.         "config"
  318.     )
  319. )
  320. (copyfiles
  321.     (prompt "Kopiere Konfiguration für TeX.")
  322.     (help @copyfiles-help)
  323.     (source "TeX/config")
  324.     (dest This_dest)
  325.     (all)
  326. )
  327.  
  328. (complete 78)
  329.  
  330. (set This_dest
  331.     (tackon
  332.         TeX_dest
  333.         "rexx"
  334.     )
  335. )
  336. (copyfiles
  337.     (prompt "Kopiere ARexx Dateien für TeX.")
  338.     (help @copyfiles-help)
  339.     (source "TeX/rexx")
  340.     (dest This_dest)
  341.     (all)
  342. )
  343.  
  344. (complete 80)
  345.  
  346. (set This_dest
  347.     (tackon
  348.         TeX_dest
  349.         "fonts"
  350.     )
  351. )
  352. (copyfiles
  353.     (prompt "Kopiere Fonts für TeX.")
  354.     (help @copyfiles-help)
  355.     (source "TeX/fonts")
  356.     (dest This_dest)
  357.     (all)
  358. )
  359.  
  360. (complete 85)
  361.  
  362. (set This_dest
  363.     (tackon
  364.         TeX_dest
  365.         "pk"
  366.     )
  367. )
  368. (copyfiles
  369.     (prompt "Kopiere Fonts für TeX.")
  370.     (help @copyfiles-help)
  371.     (source "TeX/pk")
  372.     (dest This_dest)
  373.     (optional "nofail")
  374.     (all)
  375. )
  376.  
  377. (complete 90)
  378.  
  379. (set This_dest
  380.     (tackon
  381.         TeX_dest
  382.         "pool"
  383.     )
  384. )
  385. (copyfiles
  386.     (prompt "Kopiere Pool für TeX.")
  387.     (help @copyfiles-help)
  388.     (source "TeX/pool")
  389.     (dest This_dest)
  390.     (all)
  391. )
  392.  
  393. (complete 95)
  394.  
  395. ; Ändere die S:User-Startup
  396.  
  397. (startup "TeX"
  398.     (prompt
  399.         "Es muß noch ein Befehl in die \"S:user-startup\" eingefügt "
  400.         "werden, damit Ihr System für TeX korrekt konfiguriert ist.")
  401.     (help "Diese Änderung MUSS vorgenommen werden, oder TeX wird "
  402.           "nicht funktionieren!")
  403.    (command
  404.         "ASSIGN TeX: \"" TeX_dest "\"\n"
  405.     )
  406. )
  407.  
  408. ; Alle Assigns wieder initialisieren
  409.  
  410. (if (not @pretend)
  411.     (makeassign "TeX" TeX_dest)
  412. )
  413.  
  414. (complete 100)
  415.  
  416.     ; cleanup
  417.  
  418. (message
  419.    "Bitte stellen Sie nach der Installation die Grundeinstellungen im Programm \"MUI-Rechnung\" nach "
  420.    "Ihren Bedürfnissen ein. Danach kann mit \"MUI-Rechnung\" gearbeitet werden. "
  421.    "Mit dem Programm \"MUI\" können Sie die Oberfläche der MUI-Rechnung nach Ihren "
  422.    "Wünschen einstellen (eigener Screen, Fonts, MagicWB-look, ...)."
  423. )
  424.  
  425. (makeassign "MUI-Rechnung" (safe))
  426.  
  427.     ; this is not strictly necessary, but doesn't hurt -- there is always
  428.     ; a default (exit) at the end of any script
  429. (exit)
  430.